home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dba1286.arc / IFTEST.SC < prev    next >
Encoding:
Text File  |  1986-11-04  |  415 b   |  18 lines
  1. ;--------------------------------- IfTest.SC
  2. ;---- Test IF...THEN...ELSE...ENDIF commands.
  3. CLEAR
  4. @ 10,1
  5. ;------------------------ Get a number from the user.
  6. ?? "Enter a whole number "
  7. ACCEPT "N" TO X
  8. ;------------------ Display one message or the other.
  9. IF MOD(X,5) = 0 THEN
  10.    @ 15,1
  11.    ?? X, " is evenly divisible by 5"
  12. ELSE
  13.    @ 15,1
  14.    ?? X, " is NOT evenly divisible by 5"
  15. ENDIF
  16. SLEEP 5000
  17.  
  18.